home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 68.7z
/
BS1 part 68
/
TurboCalc v2.0 (1993-12-09)(Schatztruhe)(DE)[WB].7z
/
TurboCalc v2.0 (1993-12-09)(Schatztruhe)(DE)[WB].adf
/
TurboCalc
/
ARexx
/
TurboCalc.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1992-11-14
|
911b
|
45 lines
/**********************************************************
* Test ARexx-Skript für TurboCalc © 1993 Michael Friedrich
**********************************************************/
Options FailAt 0
Options Results
/* TurboCalc-Port festlegen */
/*--------------------------*/
ADDRESS TCALC
/* Lies aktuelle Position */
/*--------------------------*/
GETCURSORPOS
oldpos = RESULT
say "Cursor war in Zelle" oldpos
/* Schreibe Zelle A1 */
/*--------------------*/
PUT 10 A1
/* und Zelle A2 */
/*--------------*/
PUT 1.23 A2
/* Formel nach Zelle A3 */
/*----------------------*/
SELECTCELL 'A3'
PUT '=A1+A2'
/* und testweise auslesen: */
/*-------------------------*/
GETFORMULA
say "Formel in A3:" RESULT
/* Inhalt (d.h. Ergebnis von) A3 */
/*-------------------------------*/
GETVALUE A3
say "Ergebnis" RESULT
/* alte Zellposition zurücksetzen */
/*--------------------------------*/
SELECTCELL oldpos